home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / card_12654.txt < prev    next >
Encoding:
Text File  |  1991-04-30  |  1.3 KB  |  63 lines
  1. -- card: 12654 from stack: in.3r
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 13187
  5. -- name: ArrowKeys
  6. ----- HyperTalk script -----
  7. on arrowKey direction
  8.   if direction is "left" then put "That was left"
  9.   if direction is "right" then put "That was right"
  10.   if direction is "up" then put "That was up"
  11.   if direction is "down" then put "That was down"
  12. end arrowkey
  13.  
  14. on closecard
  15.   hide message window
  16. end closecard
  17.  
  18.  
  19.  
  20. -- part contents for background part 4
  21. ----- text -----
  22. 3
  23.  
  24. -- part contents for background part 3
  25. ----- text -----
  26. --
  27. -- ΓÇóΓÇóΓÇóFrom Steve Drazga 12/87ΓÇóΓÇóΓÇó
  28. --
  29. -- To prevent the user from using a specific arrowkey replace "left"
  30. -- in the script with whatever key you want to disable.
  31. -- Click on an arrowkey to try this.
  32. --
  33. on arrowKey direction
  34.   if direction is not "left" then pass arrowKey
  35. end arrowkey
  36.  
  37. --
  38. --To disable all the arrowkeys use:
  39. --
  40. on arrowKey direction
  41. end arrowkey
  42.  
  43. --
  44. -- To do something special when an arrowkey is selected, use:
  45. --
  46. on arrowkey direction
  47.   if direction is up then
  48.     --special instructions for up arrowkey go here.
  49.     --there can be more than one.
  50.   else
  51.     pass arrowkey  -- remember if you don't pass the arrowkey, they won't do anything!
  52.   end if
  53. end arrowkey
  54.  
  55.  
  56.  
  57. -- part contents for background part 2
  58. ----- text -----
  59. ArrowKeys
  60.  
  61. -- part contents for background part 18
  62. ----- text -----
  63. Scripts